home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / biz / dopus / Ts2-out-theme.lha / TS2-Out-takes.theme next >
Text File  |  1992-12-10  |  3KB  |  78 lines
  1. /* D5THEME
  2.  
  3.    TS2-Out-takes.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'D5Themes:TS2-Out-takes/Backdrops/'" desktop center precision image border FFFFFF
  25.     dopus  set  background "'D5Themes:TS2-Out-takes/Patterns/'" lister tile precision image border off
  26.     dopus  set  background "'D5Themes:TS2-Out-takes/Patterns/'" req tile precision image border off
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus  set  sound "'Bad disk inserted'" "'D5Themes:TS2-Out-takes/Sounds/Bad_Disk_Inerted.svx'" 64
  32.     dopus  set  sound "'Close buttons'" "'D5Themes:TS2-Out-takes/Sounds/Close_Buttons.svx'" 64
  33.     dopus  set  sound "'Close group'" "'D5Themes:TS2-Out-takes/Sounds/Close_Group.svx'" 64
  34.     dopus  set  sound "'Close lister'" "'D5Themes:TS2-Out-takes/Sounds/Close_Lister.svx'" 64
  35.     dopus  set  sound "'Disk inserted'" "'D5Themes:TS2-Out-takes/Sounds/Disk_Inserted.svx'" 64
  36.     dopus  set  sound "'Disk removed'" "'D5Themes:TS2-Out-takes/Sounds/Disk_Removed.svx'" 64
  37.     dopus  set  sound "'FTP close connection'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Close_Connection.svx'" 64
  38.     dopus  set  sound "'FTP connect fail'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Connect_Fail.svx'" 64
  39.     dopus  set  sound "'FTP connect success'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Connect_Success.svx'" 64
  40.     dopus  set  sound "'FTP copy fail'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Copy_Fail.svx'" 64
  41.     dopus  set  sound "'FTP copy success'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Copy_Success.svx'" 64
  42.     dopus  set  sound "'FTP error'" "'D5Themes:TS2-Out-takes/Sounds/FTP_Error.svx'" 64
  43.     dopus  set  sound "'Hide'" "'D5Themes:TS2-Out-takes/Sounds/Hide.svx'" 64
  44.     dopus  set  sound "'Open buttons'" "'D5Themes:TS2-Out-takes/Sounds/Open_Buttons.svx'" 64
  45.     dopus  set  sound "'Open group'" "'D5Themes:TS2-Out-takes/Sounds/Open_Group.svx'" 64
  46.     dopus  set  sound "'Open lister'" "'D5Themes:TS2-Out-takes/Sounds/'" 64
  47.     dopus  set  sound "'Reveal'" "'D5Themes:TS2-Out-takes/Sounds/Reveal.svx'" 64
  48.     dopus  set  sound "'Shutdown'" "'D5Themes:TS2-Out-takes/Sounds/ShutDown.svx'" 64
  49.     dopus  set  sound "'Startup'" "'D5Themes:TS2-Out-takes/Sounds/Startup.svx'" 64
  50. end
  51.  
  52. /* Set fonts */
  53. if index( apply_flags , "F") ~= 0 then do
  54.     dopus set font screen "''" 0
  55.     dopus set font listers "'diamond.font'" 12
  56.     dopus set font iconsd "'diamond.font'" 12
  57.     dopus set font iconsw "'diamond.font'" 12
  58. end
  59.  
  60. /* Set colour settings*/
  61. if index( apply_flags , "P") ~= 0 then do
  62.     dopus set pens icons 1 0 0 1 0 2
  63.     dopus set pens files 1 0
  64.     dopus set pens dirs 6 0
  65.     dopus set pens selfiles 2 1
  66.     dopus set pens seldirs 2 3
  67.     dopus set pens devices 1 0
  68.     dopus set pens assigns 2 0
  69.     dopus set pens source 1 5
  70.     dopus set pens dest 2 4
  71.     dopus set pens gauge 6 3
  72.     dopus set pens user 0
  73.     dopus set palette 0xAAAAAA 0x000000 0xFFFFFF 0x6688BB 0xEE4444 0x55DD55 0x0044DD 0xEE9900 0xEFAF4F 0x7F007F 0xFFFF00 0xCF2F00 0xFF8F00 0xFF00FF 0x9F6F3F 0x00FF9F
  74. end
  75.  
  76. /* Refresh Opus */
  77. dopus refresh all
  78.